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p00 LRA REAR AEE AREER ARATE EAE Ree eee 
'@ 
000 '‘w COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
0004 ‘® DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
BRN? ? ALL RIGHTS RESERVED. * 
. & 
0007 'w THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0008 '® ONLY IN aceon DANCE WITH we {ERS OF SUCH yt SE AND WITH THE * 
0009 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0010 'w COPIES OHEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0011 '® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
901 ‘* TRANSFERRED. « 
‘® a | 
0014 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0015 '‘® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
Bo9 4 CORPORATION. * | 
.* W | 
0018 '‘® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0019 '‘® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
ge 
® ® 
ited WITITITITILILI LLL LLL LILI LLL LLL LiL Lili ti iTiiiiiiiitiiii ie 
0024 + 
$4 This file, EDT.REQ, contains definitions for EDT. 
0027 Edit history: 
0028 


1-001 = Beginning of edit history. 
1-002 = Add ASSERT macro, remove bugcheck codes. JBS 01-Jun-1981 
1-003 - Offset the PDP-11 error codes, so th obs‘ be distinguished 


from system-specific error codes. 16-Jul-1981 
003 1-004 = Remove the error messages obytting them in 
0034 ERRMSG.REQ. JBS 20-Jul-f 
0035 1-005 - Add two fields to Teca. one points to the previous buffer, 
0036 the other marks the Bon as a macro. Delete 
0037 the creation of the MAC BLOCK structure TMV 6-Aug-81 


| 
} 
| 
| 
1-006 - Add the verb number for the new bell verb. re 10-Aug-1981 
1 Add INP_JOURNAL and INP_COMMAND to repreee P FILE. This | 
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lets uS journal the responses $2, suB TITOTEQDERY in 
the journal file. JBS 16-Aug-19 
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98 1-008 - Add the verb number for the new verb. STS 31-Aug-1981 

004 1-009 = Update the routine and variable names. JBS & TMV 16-Aep-1981 

0044 1-319 - Add new verbs to set up default verb. sts 1-Sep N19 1 

0045 1-011 = Add new verbs for delete select and soggte | select. STS 23-Sep-1981 
0046 1-016 - Add new search and select verb. STS ep 
0047 1-013 = Add iterate fer word rh par gf ZPes- STs i 
0048 1-014 = Add PREV_RANGE. JBS 02-Nov-1 
0049 1-015 = Add Beh Ritions for file i/o + and streams. STS g-pec= 19) 

0050 1-318 - Change edt$$k to edt$k for tile i/o definitions. STS 09- 

0051 1-017 = Add macro to set up address and length in m string. get. STS 11-Jan-1982 

ORs 1-318 - Fix above macro to work with 11's. STS 13-Jan-19 

005 1-019 = Add Literals tor chee output ¢9 end open i sBan- ngs q. STS 13-Jan-1982 

0054 1-3 0 = Chang spring de macro for b + 6. 2 

0055 1-021 - amen & a=bit ithmetic to 48-bit seitheet! c. SMB 5-Jan-1982 

0056 1-0 $4 - y block sarithaet so that odd gddress preps don’t occur on 11's. SMB 25-Jan-1982 

0057 1-025 - vote original Line numbers. SMB 29-Jan-19 


1Seseontee 25:00:86 VANSIL Btigsrdz vesOe742 eg, Page 2 


= Reduce the amount of code pyreraesee by the 1988 macro, to try 


>; 0058 8 : 1-8 4 - Make callable Literals global. STS 08-Mar-1982 
; 0059 ' 1-025 = Remove callable Literals. STS 08-Mar-1982 
; 0060 ' i. § - add Symbols Me ¢! cpntros C 23Phay" JBS 24-May-1982 
: 0061 1 4- - ange Va tip Yi SMB 25-M 8 
; BROG ! 1-0 8 ~ hdd 1e8k Fat BUFLEN. 19 05-Jul-1982 
; 0065 0 i 1-029 = Add verb for xTate. STS 13-Aug- 2} 2 
; 0064 0 ' is 0 = Remove the keypad definitions to KEYPADDEF.REQ. 48 13-Aug-1982 
: 0065 9 | 1-081 = Add ASC_K C8]. for bit keyboards. JBS 1?-Aug-1 
:; 0066 O ' 1-0 ¢ - Add ASC_K_SS3, | 5 toch upet see JBS 20-Aug-198 | 
; 0067 O ' 1-033 = Add ver6B_k cles. | 
; 0068 0 ! 1-034 = Add K_RDAHED_LE a. ug-198 
; 0069 4 ' 1-035 = Add new scregn on” 1 Be up 11-Sep-1982 
; 0070 ! 1-0 $ - Put back » Line that was qeleted by aletake. SMB 15-Sep-1982 
; 0071 O ! 1-037 = Revise the EDIT section of gp new screen data structures. JBS 17-Sep-1982 
: 0072 0 —st:1=038 = Add CC_RDENT, 8S I7=Sep=1 83 
; 0073 0 ! 1-039 = Remove CC_RDCNT. STS 20- ep-1982 
; 0074 0 ! 1-040 = Work on cOndi tional iz ng addline secre fer r Speed. STS 30-Sep-1982 
; 0075 0 ! 1-041 = Add memory allocation maximum. SMB 18- 
> 0076 0 ; eo - Add macros for comparing Line numbers. Sts dob t=-1982 
; 0077 O ! 1-045 = Work on 1l-version of compare macro. STS 21-Oct-1982 
; 0078 O ! 1-044 = Bind high word of UInenunbers fn in compare macro. STS 21-Oct-1982 
; 0079 0 ! 1-045 = Fix bug in compare. STS 22-0ct-1 * 
; 0080 0 ! 1-046 = Work on 11 version of compare mac STS 26-Oct-1982 
>; 0081 O ! 1-047 - Change 11 com are to call EDISSCMP. LNO. STS 27-Oct-1982 
; 0082 O ! 1-048 = Add SCR_EDIT_MINPOS, remove a bunch of unused and obsolete definitions. JBS 27-Oct-1982 
; 0083 0O ' 1-049 = Reduce the size of the screen edit area on the PDP-11. This saves 
; 0084 0 ! space at the expense of time. JBS 15-Nov-19 
; 0085 4 } } 030 - Remove the edit buffer entirely. JBS 27-Dec-1982 
: 0087 O ! to save space on the PDP-11 ee 16-Jan-19 

: 0088 0 i 1-052 = Correct the definition of $S3. JBS 19-Jan-1983 

; 0089 O ! 1-053 = Change the format buffer size a vas SMB 24-Feb-1983 

: 0090 0 i 1-054 = Remove WC_K_NUM_BUKT. JBS 29-Mar-1983 
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MACRO A_FIELD(FIELD_NAME1,LENGTH) 
FIELD-NAME1 = CFIELD_OFFSET/8,F1 
ZASSIGN(FIELD_OFFSET~FIELD_OFFS 


MACRO INC_FIELD (LENGTH) = 
ZASSIGNTFIELD_OFFSET,FIELD_OFFSET+LENGTH) %; 


MACRO END_FIELDS = TES;%; 
MACRO STRUC_SIZE(SIZE) = LITERAL SIZE = (FIELD_OFFSET+7)/8; %; 


ELD_OFFSET MOD 8,LENGTH,0) | 
FFSET+LENGTH) %; 


3 0098 ‘+ 

: 09 DEFINITION DEFINITIONS | 

:  Oo98 

3 B08 8 The following definitions are used to facilitate further definitions. 

; B85 8 a 
'; 010 ! Field definition macros. This set of macros allows for definitions 

; 010 ! of the fields of data structures, letting the compiler compute the 

; 0102 0 ' the offsets. 

3 4 0 8 be | 

; 0 0 COMPILETIME FIELD_OFFSET = 0; 

: 4 8 COMPILETIME NUMBER _ONE = 1; 

: 0 0 MACRO START_FIELDS(FIELD_NAME) = 

7:40 0 FIELD FIECD_NAME = 

; 40 0 ET 

> g 0 

.: | 0 

7:40 0 

; 40 0 

; 9 0 

‘. 2 0 

7; 460 0 

; © 0 

ba, 0 

; @ 0 

; § 0 

; oO 0 
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123 
124 ‘+ 
; 5 IMPLEMENTATION PARAMETERS. 
1 5 i The following definitions ore parameters used in the work-file system 
! 3 _which may require re-definition for different implementations. | 
ee 
01 ¢ 0 LiveRe. 
0133 0 F BLN LEN = 16, ! Bit Length of a work-file block numb 
Bie 8 LIne _NOM_LEN = 16; ! Bit length of a Line number. loctually’ 3*16=48) 
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The EDT work file can contain multiple, independent data sets 
referred to as Text Buffers. A text buffer cerresvense to the construct 
os 


Link to the previous and if, tewnns blocks 
l e associated with a text buffer. In this 
case the input file is logically placed at the end of the text buffer. 
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ART_FIELDS(TBCB FIELDS) 
A_FTELD(TBCB_LIRNE_ADDR,%BPADDR) , ! Pointer to current Line. 
A_FIELD(TBCB_CUR_BUKT WF BLN LEN) ! Current bucket number. 
ATFIELD(TBCBICUR-LIN,LINE_ NUM LENS, ! Current Line number. 
AF IELD(TBCB_CUR-LINM,LINE_NUM_LENS, 
A_F IELD( TBCB_CUR-LINH, LINE -NUM_LEN) 
A_FIELD(TBCB_CHAR_POS WF _BCN_LEN), ! The character position within the Line 
A_FIELD(TBCB_FIRST BUKT,QF BIN LEN), ! First bucket number. 
A_FIELD(TBCB_LAST_BukT,wWF BLN CEN) ' Last bucket number. 
A-FIELD(TBCB-INPUT_LINE,LINE_RUM_LEN),! Number of Last input Line. 
A_F IELD(TBCB_INPUT_LINM,LINE-NUM_LEN) , 
A~F IELD( TBCB-INPUT-LINH,LINE_NUM_LEN) , 
A-FIELD(TBCB_LINE_COUNT,LINE-NUM_LEN),! Count of Lines in buffer. 

7 A_FIELD(TBCB_LC_M{LINE_NUM_LEN), 

8 A_F IELD(TBCB-LC-H, LINE _NUM_LEN), 

9 A_F IELD( TBCB_CHAR_COUNT, ZBPVAL), ! Count of chars in buffer. 

0 A~F IELD(TBCB-PREVBUF , XB8PADDR) , i Pointer to previous text buffer. 

1 A_FIELD(TBCB_NEXT BUF ,2BPADDR), ! Pointer to next text buffer. 

é A-FIELD(TBCB-INPUT_RAB,8), i Pointer to input RAB. 
A-FIELD(TBCB_IS 8) i This buffer is a macro 

4 A-FIELD(TBCB-NAME_LEN,6), i Length of buffer name. 

2 A_F IELD(TBCB_NAME ,0) ! Name of buffer 

i END_FIELDS 

9 STRUC_SIZE(TBCB_SIZE) ! Define size of TBCB. 


MACRO TBCB_BLOCK = BLOCKCTBCB_SIZE,BYTE] FIELD(TBCB_FIELDS)2 ; 


'¢ 

! The pos block is the portion of the TBCB which contains information needed 
' to locate the current Line. s block must be identical to the first 
part of the TBCB or everything will fail. 
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START_FIELDS(POS FIELDS) 
A_FTELD(POS_LIRE_ADDR,ZBPADDR) , ! Pointer to current Line. 
91 A-F IELD(POS- CUR_BUKT WF _BLN_LEN) ' Current bucket number. 
92 A~FIELD(POS~CURTLIN,LINE_NUR_LENS, ! Current Line number. 
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! Define size of position information 
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>; 0219 0 

: 0220 0 

; 0981 0! WORK=FILE_ BUCKET DEFINITIONS 

2a 

> 0224 0 ! The work file is orgainized into blocks of WF_BLOCK_SIZE characters. 

3 ; , _Each Text Buffer in the work file consists of a Linked List of blocks. 
: 0227 0 

; S . 2 LITERAL WF_BUKT_SIZE = 512; ' Size of a work-file block 

: 0230 0 START FIELDS (WEB FIELDS) 

: 0231 O FIELD( PREV_BUKT,WF_BLN_LEN), ! Number of previous bucket 

> ¢ ¢ 0 Ne “FIELDC (WEBS _NEXT gOUKT WFIBLNALEN) , ! Number of next bucket 

co 0 A_FIELD(WFB_END,2BPVAL), ! Offset to last record in block 
3 0234 0 A_FIELD(WFB_ “FECORDS. 0) ! Address of first record in block 
$ ? 4 END_FIELDS 

: 0237 0 STRUC_SIZE(WFB_FIXED_SIZE) 


— 


= 


loleoleleololo) 
DWNAUES WN ODONOULS WOOO 


rrorororrrrr 


Se Se Oe Oe Oe Oe Oe Se Se Se Ge Oe Se Ge Se ee SH Se SH Seas 
pelo fofoflololoflololeolololololo!) 
Mrerononofnenoroefpofnenons 
PUPPIES BS BE EE 
whole lelelelelelelealelelelelelelelelolela) 


a 


4 VAX=11 Bliss<-32 V4.0-74 Page 
bege 308-1382 g3: 28: 8 MSs BASES tebr’ caries -REQ;1 . B 
4 
LINE NUMBER BLOCK DEFINITIONS 
i The Line number is defined as a block, so it can be handled as 
_three 16-bit words. 
FIELD, AN, FIELDS = 
LN_LO 
LN_MD 
LN_H] 
TES; 
MACRO LN_BLOCK = BLOCK(6,BYTE) FIELD(LN_FIELDS) %; 
LITERAL LN_SIZE = 6; 


STRUCTURE 
LNOVECTORCI;N) = CN*LN_SIZEJ (LNOVECTOR+I*LN_SIZE); 


0,0,16,0), 
2-0 8-18-03. 
-0,16,0 


| 3 

1S-sep-1 4 23:00: VAX-11 B 
13nSep- 198s $3:08:39 “8355800 

; 0259 0 

; 0260 0 te 

3 8 6} 8 } Semantic node definitions. 

; ¢ 88 8 ! The following defines the structures created 7 the EDT 

3 0264 ' command parser semantic routines. These structures form 

3 850? 4 a tree-Like representation of the command. 

; ogee 0 ! The fields which are grouped together are re-definitions of the 

; 8 re 8 same slot for use in different types of nodes. 

: 0270 0 

; 8 a! 8 FIELD NODE_FIELDS = 

: 0378 4 NODE_TYPE = (0,0,8,0], ' Identifies the type of node 

: Gee © COM_NUM z \-0.8.93. ! Identifies the command 

; 0276 O RAN_ TYPE = (1,0,8,0), ! Identifier type of range 

; 0277 O OP_TYPE = (1,0,8,0), ' Identifies type of operand 

; oste . SEG_VAL = (1,0,8,0), ! Did the seq switch have value. 

; 0280 0 RANGE 1 = CZUPVAL,0,%BPVAL,0), ' First range specifier 

>; 0281 0 RAN_VAL = CZUPVAL,0,2BPVAL,0J, ' Value for range specifier 

>; 0282 0 w BIT = CZUPVAL,0,%BPVAL,0), ' Bits for each possible switch 

: 0283 0 SRTHADDR = CXUPVAL,0,%BPVAL,0), ! Address of search string 

>; 0284 0 SET_TYPE = CZUPVAL,0,Z%BPVAL,0), ! Which type of set command 

; 0285 0 LEFT_OP = CZUPVAL,0,%BPVAL,0J, ' Left operand for binary ops 

>; 0286 0 OP_LEN = CZUPVAL,0,Z%BPVAL,0), ' operand length for op nodes. 

; 0287 0 OP_VAL = CZUPVAL,0,Z%BPVAL,.0J), ' Operand value for numerics. 

: 0288 O COM_EXP = CXUPVAL,0,%BPVAL,0), ' Expression pointer for LET 

; 0289 0 OP_CEFTOP = CXUPVAL,O,%BPVAL,0J, ' Left operand for operators. 

3 T3454 8 _BA = CZUPVAL,0,%BPVAL,0J, ! Substring base string. 

; 0292 0 RANGE 2 = CZUPVAL*2,0,%BPVAL,0), ! Second range specifier 

; 0293 0 SUB_RANGE = (CZUPVAL*2,0,%BPVAL,0J, ' Pointer to range for ranges 

; 0294 0 STR_PNT = CZUPVAL*2,0,%8PVAL,0), ! Pointer to a search string 

: 0295 0 SRCRILEN = (ZUPVAL*2, YS rage ° ' Search string length 

>; 0296 0 FILSPEC = CRUPVAL*2,0,2BPVAL,0J, ' File specification address 

; 0297 0 SW_VAL = CZUPVAL*2,0,%BPVAL,0), ' First value for switches 

; 0298 0 AS_STR = CZUPVAL*2,0,ZBPVAL.0), ' Addr of string for AS 

:; 0299 0 RIGHT_OP = CZUPVAL*2,0,ZBPVAL,0J, ' aigat operand for binary ops. 

; 0300 QO F = CZUPVAL*2,0,2BPVAL,0), ' Address of buffer name 

; 0301 QO OP_ADDR = CZUPVAL*2,0,2BPVAL,9), ' Operand address for op nodes. 

: 0306 8 VARB = [ZUPVAL*2,0,28PVAL,0J, ' Variable pointer for LET 

; 305 OP_RIGHTOP = [ZUPVAL*2,0,Z%BPVAL,0J, : eget operand for operators. 

; 0304 0 SUB_STA = [CZUPVAL*2,0,ZBPVAL,0J, ! Substring start pos. 

: Bene 8 TAB_COUNT = CZUPVAL*2,0,ZBPVAL,0J, ! Count for tabs adjust. 

:; 0307 O SET_VAL1 = [ZUPVAL*3,0,ZBPVAL,0), ! Value for set command 

: 0308 O REPADDR = [CZUPVAL*3,0,2%BPVAL,0), ' Replace string address 

3 Sit 0 FSPCLEN = CZUPVAL*3,0,ZBPVAL,0), ' File spec Length 

s 310 0 AS_LEN = (ZUPVAL*3,0,Z2BPVAL,0J, ' Length of string for AS 

; @s11 @ UF _LEN = [ZUPVAL*3,0,2BPVAL,0), ' Length of buffer name 

: Bag 8 SUB-LENGTH = CZUPVAL*3,0,%BPVAL,0), ! Substring Length. 

; 60314 0 NEXT_COM = CZUPVAL*4, + EBPVAL 0). ! Pointer to next command 

; 0315 O NEXT_RANGE = [ZUPVAL*4,0,2BPVAL,0), ! Pointer to next range 
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REPLEN = CZUPVAL*4,0,%BPVAL, 8}. ! Replace string length 
SET_VAL = [XUPVAL*4,0,%BPVAL, 

KEY_VAL = CZUPVAL*4,0,%BPVAL, ! Number of key for def key 
PREV_RANGE = (CXUPVAL*5,0,%B8PVAL, 0. ° ! Reverse of NEXT_RANGE 
SwiTS = [ZUPVAL*5,0,%BPVAL, ' Switch block pointer 
SW_VAL2 = CRUPVAL*5,0,28PVAL, ! Second option switch value 


SW_OVR1 = (XUPVAL*6,0,%BPVAL,0), 


Fu ovens = CXUPVAL*7,0,%8PVAL 0) 


LITERA 
NUR NODES = 20 
NODE_SIZE = 8*fUPVAL; 


LITERAL ! Node type equates 


Part of second option switch 


Part of second option switch 


Number of semantic nodes 
Size of semantic node 


COM_NODE = 1, ; poy A » “ype 

RANGE NODE = ¢: ' Ran 

STR_NODE = 3, ' $UB r1T0te strings 
Sw_NODE = 4, ' Option tch va ue 
OP_NODE = 5; ! Expression operand 
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MACRO NODE_BLOCK = BLOCKCNODE_SIZE,BYTE] FIELD(NODE_FIELDS) 2%; 
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The following values are used in a command type node to specify which 


COMMAND NUMBER DEFINITIONS 
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; 0400 0 

; 0401 0 1+ 

: at's 8 RANGE TYPE DEFINITIONS 

>; 0404 Q : The following constants are used in range nodes to specify the type of 
: 0405 0O ' range. 

; 0406 0 te 

; 0407 0O 

; 0408 0O LITERAL 

> 0409 0 RAN.NULL = 0, 

; 0410 0 RAN_NUMBER = 1, 

; get) 0 RAN_DOT = ¢ 

: ale 0 “STR = 3; 

; 0413 0 RAN_BEGIN = 4, 

> 0414 0 RAN_END = 5, 

; 0415 0 ORIG = 6, 

> 0416 0 RAN_PATTERN = 7, 

: 0417 0 “LAST =—s_- =-«8B,, 

; 0418 0 RAN_BEFORE = 9 

: 0419 0 RAN-REST = 10, 

; 0420 0 -WHOLE = 11, 

; be54 0 RAN_SELECT = \¢- 

; 04 é 0 RAN-BUFFER = 13, 

; 0423 0 N_PLUS = 14, 

: 0424 0 RAN_MINUS = 15, 

; Ques 0 RAN~FOR = 16, 

; 0426 0 RAN_THRU = 17, 

; Que? 0 RAN-MINSTR = 18, 

; 0428 0 WALL = 19, 

; eh 34 0 RAN_AND = 20, 

; 0430 0 NUM_RAN = 20, ! Total number of ranges 

>; 0431 0 NUM_SLR = 7; ! number of single Line ranges 

; pees 0 

; 0433 0 : 

>; 046434 0 ! Operand types for operand nodes. 

; 0435 0 : 

; 0436 0 LITERAL 

; 0437 O OP_STRING = 0, ! Operand is a quoted string 

: 0438 0 OP_NUM = 1, ! Operand is a number 

; 0439 0 OP_VAR = ¢ ! Operand is a variable 

: 0440 0 OP_DOT zs 5, ! Operand is the dot pseudo variable 
; 0441 0 OP_ADD = 4, ! Operand is an addition operator 
3 Ones OP_SUB = 5, ! Operand is a subtractions operator 
> ©6044 OP_MULT = g. ! Operand is a aul sipl ication operator 
: Rese OP_DIV = 7, ! Operand is a division operator 
; 45 0 OP_AND = g. ! logical and 

3 46 6 OP_OR = ! logical or 

: 47 OP_LSS = 16, ' compare for less 

; 48 OP_LEQ = 11, ! compare for less or equal 

; 49 OP_EQL = \¢- ! Compare for equality 

3 50 OP _GEQ = 15, ! compare for greater or equal 

3 51 OP_GTR = 14, ! compare for greater 

3 be 8s 0 OP" NEQ = 15, ! compare for not equal 

3 53 0 2 = 1g. ! concatenation 

: 54 OP_SUBSTR = 17, ! substringing 

; 455 OP" NEG 5 18. ' negation 

3 56 OP_NOT = 19, ! logical not 
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LENGTH 
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current position 
last operand type 
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> 046 8 ‘+ ; 
: Ree? 0 LINE NUMBER HAND! ING MACROS ; 
; 0465 O ! These macros are used for arithmetic involving Line numbers, so it can : 
>; 0466 0 ! be transportable across systems with various word lengths. At least 48 ; 
; 0467 O ' bits of precision are required for Line numbers. Line numbers are stored ; 
; 0468 0 ' as an sateger with a scale of -5, i.e. the true value * 10**5, so we can ; 
3 Br88 8 have 5 decimal positions and 10 integer positions in the Line number. ; 
; 0471 O ‘ 
; Bere 8 XIF XBLISS(BLISS32) XTHEN | ; 
: 4 0474 0 ADDLINE(S1,S2,DEST,MAX) = : 
3; 4 0475 0 '¢ ; 
; 4 0476 0 ! Add 2 48-bit nysters using 2 Longuerds (so we can ; 
; 40477 O : use the BLISS-32 Built-in macros). : 
3; 4 0478 O l= . 
; 4 0479 O BEGIN : 
; 4 0480 0 RIF ZCTCECS1) XTHEN ; 
3 4 0481 0 ZIF ZLENGTH EQL 2 XTHEN : 
; M Beet 0 '¢ . 
; 4 0483 0 ' add a compile time expression to s? and stcre it in s2 : 
; 4 0484 0 le ; 
3; 4 0485 0 BEGIN : 
; 6 0486 0 BIND : 
; 6 0487 0 FIRST _LWORD = $2 :LONG . 
; M0488 0 NEXT_QORD = (S2+4) : WORD; | : 
; 4 0489 0 FIRST _LWORD = .FIRST_LWORD +Si; . 
; 40490 0 IF .FIRST_LWORD LSSU™S1 : 
; 4 0491 O EN F 
; 4 oh} 0 NEXT_WORD = .NEXT_WORD + 1; | : 
3; 40493 0 . 
>; 60494 0 ZELSE | . 
:; 40495 0 ! : 
3; 4 0496 0 ! add a compile time expression to s2 and store it in dest : 
; 40497 0 te | ; 
3; 6 0498 O BEGIN ; 
; § 0499 O BIND FIRST_WORD = (DEST) : LONG . 
:; 40500 0 NEXT _QDORD = (DEST+4) : WORD, | ; 
; #0501 O SOURTE_2L0 = ($2) : LONG : 
: M0302 0 SOURCE-2HI = (S2+4) : WORD; | : 
; 4 0503 0 ‘ 
3; 4 0504 0 FIRST_WORD = .SOURCE_2L0 + $1; . 
; Z 030¢ 0 M (.FIRST_WORD LSSUS$1) : 
3; 4 209 NEXT_WORD = .SOURCE_2HI + 1 ’ 
: # 0508 8 ELSE . 
; M 0509 NEXT_WORD = .SOURCE_2HI; : 
; 40510 O . 
; M0511 zFI : 
; 216 ZELSE : 
; #051 '¢ : 
; . 218 0 : we don't have a compile time expression, but we are adding two 48-bit numbers : 
: m 051 o 3 
| o346 ZIF ZLENGTH EQL 2 XTHEN ' store the result in S2 - 
; #0518 O BEGIN : 
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LOCAL SAVE: WORD; 
BUILTIN ADDM; 
BIND UPPER WORD : » (S206) : WORD; 
SAVE =. eesti 
ADDM(2,$1 
UPPER. word = E; 
END 
XELSE 
ZIF XLENGTH EQL 3 XTHEN ' store the result in DEST 
BEGIN 
LOCAL 
SAVE : WORD; 
BUILTIN ADDM; 
BIND UPPER_WORD = (DEST+6) : WORD; 
SAVE = .UPPER_WORD; 
ADDM(2,51,S2, DEST); 
UPPERWORD = * SAVE; 
ZELSE ' store the result in DEST and return 
BEGIN ! any overflow in MAX 
LOCAL 
SAVES2 : WORD, 
wp SAVE? : WORD; 
at _UP = (S +6) : WORD, 
S2-UP = ($2+6 ORD, 
DEST "UP = CDESTs6) : WORD; 
yaa ADDM; 
52 at + .S1_UP; 


SAV DES 
ADDR, $i,$2, Best): 


'¢ 
x Get the overflow bit 


IF .DEST_UP EQL .SAVES2 
THEN 


MAX = 
ELSE 
DEST_UP 
END 


tFI 
2FI 
aFI 
ENDZ, 


1: 
. SAVED; 


. SUBLINE(S1,S2,DEST) = 
Subtract 2 48-bit numbers using 2 longwords 


RIF Reice ($1) _ZTHEN 
RIF ZLENGTH EQL 2 XTHEN 


AaB 
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\+ 
we have a compile time expression to add to S2 and store in $2 


BEGIN 
LOCAL SAVE : LONG; 


FIRST WORD = S2 :LONG, 
NEXT GORD = (S244) : WORD; 
=. S 


SAVE RST_W 
FIRST_WORD = 7FIRST_WORD = $1; 
IF .FIRST_WORD GTRU™. SAVE 


NEXT_WORD = .NEXT_WORD = 1; 


0000000000, 
4 yee eet 9, 
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E 
S ZELSE 
; add the compile time expression to S2 and store it in DEST 


BEGIN 
BIND FIRST_WORD = (DEST) : LONG, 
NEXT_QORD = (DEST#4) : WORD, 


SOURCE 6.0 = (36) : LONG 
SOURCE~2HI = (S244) : WORD; 


4 ieee | WORD = .SOURCE_2L0 = $1; 


em fm fm fm fw an fan fw fa lola lololololololololololalolo) 
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0601 IF_.FIRST_WORD GTRU TSOURCE_2L0 
060 THEN 
060 NEXT_WORD = .SOURCE_2HI - 1 
0604 ELSE 

05 cm NEXT_WORD = .SOURCE_2H1; 


FI 
RELSE 
; RIF ZLENGTH EQL 2 XTHEN 


te 
add two 48 bit numbers and store result in $2 


BEGIN 
LOCAL SAVE: WORD; 

BUILTIN SUBM; 

BINS UPPER WORD = (S246) : WORD; 
SAVE = UPPER WORD: 
SUBM(2,51,S2,52); 

UPPER WORD =, SAVE; 


ZELSE 
add two 48 bit numbers and store result in DEST 


SAVE : WORD; 
BUILTIN SUBM; 
BIND UPPER WORD = (DEST+6) : WORD; 


SAVE = .UFPER_WORD; 
SUBN(2, 81,50 "DEST; 
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UPPER_WORD = .SAVE; 
END 
XF I 


XFI 
ENDS, 


A MULTLINE(S1,S2,DEST) = 
| Multiply 2 48-bit numbers, but $1 MUST be <= 100,000 


BEGIN 
BIND 
M1 = $1: BITVECTOR (32); 


LOCAL ne : ee roe tsa: 
ECTOR 
ws BUILTIN ADDN, ASHQ; 
' Set up the aul soi jeand and result in 64 bits, zeroeing 
' out the upper 16-bits. 
16-bi 


M2C0) = <0, M2C1) = .(S2+4)<0,16>; 
HOP os $5 
i Since 65535 < multiplier <+ 100,000... we only need to 
i examine the low order 17-bits. 

pece 1 FROM 16 TO 0 


BEGIN 
ae be F(1), ! Shift result left by 1 (multiply by 2) 
IF 12) "men hopmc2. P, M2, P); i | ga mult plican to result 
bn: multiplier bit set 
woes, 32> = .PLO]; (DEST+4)<0,16> = .PC1); 


'¢ 
compare two 48 bit Line numbers to see if they are equal 
cn = 


= ae e 
NO-2 = L nt ond), 
tow ea 
HIGR_1 = NO ‘ta 
= NO_ “2 WORE 
HF (¢.L0V,1 ECL .LOW_2) AND (.HIGH_1 EQL .HIGH_2)) 
(1) 
ELSE 


(0) 
ENDE, 


«REQ; 1 
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Ww 


BEGIN 
B 


IND 
FIRST WORD = $2:WORD, 
NEXT GOR D = 

HIGH"WORD = 

FIRST WORD = .FI 
FIRST_WORD E 

THEN 
BEGIN 

NEXT WORD = .NEXT WORD + 1; 


+2) : WORD, 
+4) : WORD; 
T_WORD + S1; 


S 
: 
L 0 


( 
( 
R 
Q 


-REXT_WORD EQL™O THEN HIGH_WORD = .HIGH WORD + 1; 
END 


; 0 CMPLNO(LIN1I,LIN2) = 

; M 0 BEGIN 

3; A 8 BIND 

A NO_1 = LIN vec TORE3: »WORD], 

3; M 0 NO 2 = LIN2 : »WORDJ, 
:M 0 LOW_1 = Hes} | 
; # 0 LOW 2 = NO 2 t tone! 
; 4 0697 0 HIGA_1 = NO_1 | : WORD, | 
: 4 0698 0 HIGH2 = NO2C2] : WORD; 

; M0699 0 | 
; 40700 O IF (.HIGH_1 LSSU .HIGH_2) 

: 40701 O THEN 
7 fa 0 (=1) 
; 40703 O 

; 40704 0 BEGIN 
: 40705 0 IF (.HIGH_1 EQL .HIGH_2) | 
3; 40706 O TH 
: 40707 0 IF (.LOW_1 LSSU .LOW_2) 

; 40708 O THEN 

; 40709 O (-1) 

: 40710 O ELSE 

: 40711 0 IF (.LOW_1 EQL .LOW_2) THEN (0) ELSE (1) 

; * orig 0 ELSE 

; 4 071 0 (1) 

; 60714 O END 

s 0715 0 ENDS, 

; 0716 0 

: ta t4 8 MOVELINE(S,D) = (CHSMOVE(6,S,D))%, ! Move 6 bytes of storage 

; 0719 O BUILDLINE(S,D) = (D = S; (D#4) = 0)%; ! Build a number 
: 0720 0 

: 0721 0 ! 
s O7s¢ 0 ZELSE RIF XBLISS(BLISS16) XTHEN 
3; U 0723 O | 
: 0724 0 MACRO 
; U 0725 0 ADDLINE(S1,S2,DEST,MAX) = 
: U 0726 O BEG] 

; 0727 0 ZIF XCTCEC(S1) XTHEN 

: 8755 8 S ZIF ZLENGTH EQL 2 XTHEN 
3 0780 . ; we are addng a constant to source_2 and storing in source_2 

; U 07 0 

3 8 0 

; 0 

;u0 0 

3 8 0 

3 0 

;u0 0 

; 0 

; U0 6 

;u0 0 

3 p 8 

;u0 6 
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BEGIN 
NEXT WORD = .NEXT WORD = 1; 
.REXT_WORD EQL™=1 THEN HIGH_WORD = .HIGH_WORD - 1; 


; y 584 8 } destination is DEST and we have a compile time constant 
: U 0749 0 BEGIN 

; U 0750 O N 

: U 0751 +O SOURCE_1 = $2_: WORD, 

7 U 072g 0 SOURCET¢ = (3382) : WORD, 

; u 0753 0 SOURCE-3 = (S244) : WORD, 

: U 0754 «+O FIRST QORD = DEST : WORD 

; U 0755 0 NEXT_QORD = (DEST+2) : WORD, 

; U 0756 0 HIGH-WORD = (DEST#4) : WORD; 

; U 0757 +O FIRST WORD = .SOURCE_1 + $1; 

; U 0758 0 NEXT _GORD = = -SQURCE.@: 

; U 0759 0 HIGH" W SOURCE 3; 

3; U 0760 O IF NeiRet _WORD EQL O 

; U 0761 O THEN 

7 U O76¢ 0 BEGIN 

; U 0763 0 went WORD = .NEXT_WORD + 1; 

3 U 0764 0 .REXT_WORD EQL~O 

: U 0765 0 HEN 

; U 0766 O HIGH_WORD = .HIGH_WORD + 1 ; 
: U 0767 O END; 

; U 0768 O END 

: U 0769 O “FI 

3; U 0770 0 \+ 

; U 0771 O ' we don't have a constant 

7 U Ore 0 \- 

; U 0773 +O 

; U 0774 0 LSE 

: U 0775 0 ZIF ZLENGTH EQL 2 XTHEN 

: U 0776 O BEGIN EXTERNAL ROUTINE A48_ADD; A48_ADD(S1,S2,S2) END 
: U 0777 O XELSE 

: U 0778 +O ZIF XLENGTH EQL 3 ZTHEN 

; u O77 4 BEGIN EXTERNAL ROUTINE A48_ADD; A48_ADD(S1,S2,DEST) END 
: U 0781 O BEGIN EXTERNAL ROUTINE A48_ADD; MAX = A48_ADD(S1,S2,DEST) END 
7 U 0782 0 tf 1 

; U 0783 0 IF 

: U 0784 O IFI 

: U 0785 0 END% 

7 U 0786 0 SUBLINE(S1,S$2,DEST) = 

; U 0787 O N 

; U 0788 0 ZIF XCTCE(S1) THEN 

: U 0789 O BEGIN 

7 U 0790 9 ZIF ZLENGTH EQL 2 XTHEN 

3; U 079% BEGIN 

7 U 0738 0 LOCAL SAVE : WORD; 

3: U ta 8 BIND 

3: U 0794 FIRST WORD = S 

: u 0795 0 NEXT -BORD = (5 +5) : “Vn, 
3; U a wIGH = ae 

3; U 079 SAVE = FIRST. 

: U 0798 FIRST WORD = “Fohei WORD = $1; 
: U 0799 FIRST PuoRD. GTRU™ . SAVE 

; U 0800 EN 

7 U 

7 U 

7 U 


j 
| 
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804 END; 
805 END 
“] ZELSE 
, subtract a compile time constant to $2 and put result in DEST 
; BEGIN 
8 


IND 
FIRST_WORD = DEST : WORD 
NEXT_QORD = (DEST+2) : WORD, 

DEST#4) : WORD. 


8 

9 

10 

i 

18 ‘ 

14 HIGH-WORD = ( 

15 $2_L0 = $3 : WORD 

16 SO-M = (S242) : WORD 
v7 SO-HI = (S2+4) : WORD; 
19 FIRST WORD = .$2.L0 = $1; 
0 NEXT_QORD = 33°85 

1 HIGH"WORD = .S2-HI; 

¢ IF .FIRST_WORD GTRU .S2_L0 

THEN 

24 BEGIN 
25 NEXT WORD = .NEXT_WORD - 1; 
26 IF .NEXT_WORD EQL~=1 
27? HEN 
28 HIGH_WORD = .HIGH_WORD - 1; 
$3 ND; 

0 END 
31 tI 
3¢ END 
3 XELSE 


a 
ae 
SOOOCSOCOCOCOOCOCOCOSOOOSCOOCOOSSOSSOSSSSOSOOCSOOOOOOOOCOCOOOCCOODOCOOCOOCOO 


We don't have a compile time expression 


RIF ZLENGTH EQL 2 ZTHEN 
BEGIN EXTERNAL ROUTINE A48_SUB; A48_SUB(S1,S2,S2) END 


ZELSE 
BEGIN EXTERNAL ROUTINE A48_SUB; A48_SUB(S1,S2,DEST) END 
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840 

841 tFI 

Bie IF I 

84 ENDS, 

844 MULTLINE(S5,S6,D3) = 

45 BEGIN EXTERNAL ROUTINE A48_MUL; A48_MUL(S5,S6,D3) END %, 

0847 LINNOEQL (LIN1,LIN2) = (CHSEQL(6,LIN1,6.LIN2))%, 

ith CMPLNO (LINI,LIN2) = 

0850 BEGIN EXTERNAL ROUTINE EDTSSCMP_LNO; EDTSSCMP_LNO(LIN1,LIN2) END %, 
085¢ MOVELINE(S11,D6) = (CHSMOVE(6,$11 06))%, 

0893 BUILDLINE(S12,D7) = (D7? = $12: (D?#2) = 0; (D7+4) = 0)%; 
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-REQ;1 (14) 


pee Input source definitions. 
9879 ; These constants define the source command Line input. 
0881 LITERAL 
etd INP_TERM = 0, ! Terminal 
08 INP_MACRO = 1, ! A macro 
; 4 INP_COMMAND = ¢: ! The sortep file 
. 5 INP_JOURNAL = 5; ! The Jeurne file (only during /RECOVER) 
088? '¢ 
ett } Terminal type definitions. 
4 These Literals define the type of terminal we are running on. 
9 LITERAL | 
089 TERM_UNKNOWN= 0, 
TERM_VT5 = 1, 
TERM _VT100 = 2, 


TERM_HCPY = : 
'¢ 
Length of the type-ahead buffer 


LITERAL 
K_RDAHED_LEN = 32; 
' 
; Editor mode definitions. 
LITERAL 
CHANGE MODE 


= 0, 
LINE _MODE = 1; 


1 
: definitions for types of words and paras 


TERAL 
DELIMITED = 0, 
NOT DELIMITED = 1, 
WPSPARA = 0, 
EDTPARA = 1; 
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1 \+ 
13 Define the error codes. 
sf REQUIRE "EDTSRC:ERRMSG.REQ’; 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE 
ie ONLY I RDANCE WITH THE TE 


oO 
~ 


® 

® 

& 

® 

® 

: 

® 

® 

i OVIDED 0 * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP O . | 
ie TRANSFERRED. ‘ | 
. * } 

ie THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE * 

ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

ie CORPORATION. * 

* 

® 

* 

* 

a 

* 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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This file, ERRMSG.REQ, contains definitions of EDT's messages. 
Edit history: 


-001 - Original, from EDT.REQ. JBS 20-Jul-1981 
-002 - Add a short global name for PDP-11 MACRO modules. JBS 20-Jul-1981 
Add a message for ‘‘work file failed to open’’. Module RSTIOI was 

using code 0 for this condition! JBS 20-Jul-1981 
Change *’."’ to ‘'_"* in PDP=-11 names. JBS 21-Jul-1981 
Don't define the short global names, set EDTSMESSAGE do it. JBS 21-Jul-1981 
Use an iterative macro. JBS 21-Jul-1981 
Use the specified increment rather than 1 between messages. JBS 27-Jul-1981 
Correct a couple of typos based on the MDL file. JBS 28-Jul-1981 
Update a@ message basec on the PDP-11 messages. JBS 28-Jul-19 

Change the form of the mnemonics to EDTS_..., Limit the names to nine characters, 

and let them be defined as globals on VAK-i1. JBS 04-Aug-1981 
Add new error msg INVSTR for bad string pessed to set command. STS 20-0ct-1981 
Make the INVSTR message more general so can be used in more cases. JBS 22-Oct-1981 

Correct a typo in NOFILSPC MB 05-Nov-1981 

Revise messages FORHLPANO & TOEXITHLP. SMB 19-Nov-1981 
Add a new message NOKEYHLP for no help on a key in change mode. SMB c0-Nove 198) 
Add new messages for line number & sequence numbers out of range. ' 33-Feb-1982 
Revise existing error messoges related to Line numbers. SMB 05-Feb-1982 

Add a new message for numeric value out of range. JBS 10-Feb-198 

Add a new message for ASCII character out of range. 185 10-Feb-1982 

Add a new message for internal EDT error. STS 19-Feb-1982 

Add new message warning that DEFK is not allowed in Nokeypad mode. SMB 1-Mar-1982 

Add message for passing back status. STS 09-Mar-1982 

Add message for rewencry 0 » STS 11-Mar-1 §2 

Put the messages in alphabetical order. JBS 15-Mar-1982 

Add a message for a non-standard input file. JBS 26-Mar-1982 

Make the PDP-11 messages be status coges == go 4 gree are odd, bad are even. JBS 26-Mar-1982 
Add messages about closing files. JBS 12-Apr-198 
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Add second control C message. JBS actors] 962 
Add an error message for Help File initialization. SMB 28-May-1982 
Put the messages in the same order as the gone) to simplify 
verifying one against the other. JBS_09-Jun-1 62 
Add ‘Press return to gont invg JBS 17-Jun-1982 
Add ‘Working’. JBS 18-Jun-1982 
Add a new select range error message. SMB 01-Jul-1982 
Do some miscellaneous improvements based on today's review. JBS 12-Jul-1982 
Fix dup icatec mnemonic. JBS 13-Jul-1982 
Move ER_OUT and ER_INP to reflect the real meaning of the messages. SMB 13-Jul-1982 
Add an error message for no output file written and invalid 
input from terminal. STS 05-Aug-19 
Take spaces out of the working message. SMB Hh et ba 
Remove unused messages and add one new one. SMB 15-Dec-1982 
Add two new error messages for terminal opening. STS 15-vec-1982 
Change the sever ity of terminal open errors to fatal. STS 16-Dec-1982 
Remove references to ascii. singe EDT uses the DEC Multinational 
character set. JBS 20-Jan-198 
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! Maintenance note: the messages should be kept in alphabetical order 

by text, so that they can be matched against the manual. 
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1+ 
Error messages: name, severity and text. 
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MACRO 
ERROR_MESSAGES = 


ERR (COLONREQ, W, ‘'':'' coquired. 5 
ABOBYCC, W, ‘Aborted by CTRL/C',, 
BOTOFBUF, W, ‘Advance past bottom of buffer',, 
WW ***as'* required',, 
PP, W, ‘Attempt to CUT or APPEND to current buffer',, 
ATTPASCUR, W, ‘Attempt to PASTE current buffer',, 
REENTRY, fF, | ‘Attempt to re-enter EDT’, 
TOPOF BUF , WwW. ‘Backup past top of buffer',, 
Ww. ‘Cannot set terminal type from change mode’, 
CHGMODTER, WwW, ‘Change mode can be entered only from a terminal’,, | 
COMBUFEXH, W, ‘Command buffer exhausted',, 
COMEXHXLA, W, ‘Command buffer exhausted during XLATE command processing',, 
COMFILCLO, W, ‘Command file could not be closed',, 
COMFILNOP, W, ‘Command file could not be opened'., 
COMFILNEX, W, ‘Command file does not exist'’,, 
CONCHKFLD, W, ‘Consistency check failed, please check your file',, 
‘Could not align tabs with cursor’,, 
TRC__IGN, W, ‘CTRL/C ignored’,, 
STMOVCOP, Ww, ‘Destination for MOVE or COPY not found',, 
DITORABO, F, ‘Editor aborted’, 
NIMUSTBE, W, ‘Entity must be WORD, SENTENCE, PARAGRAPH or PAGE',, 
T, W. ‘Error in command option’, 
RRANSPC, W, ‘Error in range specification',, 
fF, ‘Error opening terminal for input',, 
NOUTTRM, F, ‘Error opening terminal for output’, 
RINPFIL, WwW, ‘Error reading from input file’, ER inp, 
ER_OUT, 
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RINPTRM, W, ‘Error reeding from terminal’, 
ERROUTFIL, W, ‘Error wr sing to output file 
BADF:LATR, W, ‘File attributes error’, ER_TYP 
NAM, W, "File name:',, 
NOFILSPC, Ww, ‘File specification required’, | 
FORHL . Ww. ‘For help on any other nevese ey. press the key',, 
HLPFILCLO, W, ‘Help file could not be closed',, 
NOHLPAVL, W, ‘Help file could not be opened 

W. Help File Index could not be initialized',, 
L6, UW. ‘Include file could not be closed’,, 
. W. ‘Include file could not be opened’, 
. W. ‘Include file does not exist’,,. 
. W. ‘Input file could not be closed’,, 
. ¥, ‘Input file could not be opened’,, 
- W. ‘Input file does not exist’, 


COOOoOooCoCoCoOoooo 
abet wy 


w 


RERRREKREK 
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I, ‘Input file does not have standard text file format’, ER_NST, 
"Insufficient memory',, 

. ‘Internal software error - please submit an SPR',, 

NAM, Ww, ‘Invalid buffer name',, 
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NVASCCHR, W, ‘Invalid re 1 ad code',, 

: mR io8e 6 INVEN ‘Invalid ent 

7 1057 0 INVOPTCOM, W, ‘Invalid Sotien for that command’, “f 

: mR1088 0 INVPARFOR, W, ‘Invalid String! for SET or SHOW',, 

: TR, W nvalid str 

: mr 1086 8 INVSTR, W. ‘Invalid subcommand 

> MR1061 0 INVVALSET, W, ‘Invalid value in "eet" command’ f° 

7 1062 0 IOERRWRK, F, ‘I/O error on work file’, ER_WF, 

: MRIOG 0 JOUFILCLO, W, ‘Journal file could not be steeee, oe 

: 4 0 NOJNLFIL, W, ‘Journal file could not be 0 

 Ainige BADDEFK, W, ‘Keys cannot be itt ined in Noteypad *mode',, 

: Hr 066 6 LINEXC255, W, +HACRO oF KEY. req jcagrecters, runcated',, 

; at 5 MAXIIPLIN’ 62 of #49767 exceeded, file input terminated’, : 
: MRI0e8 step f man Input’ Lines of 28icths Tete no longer ascending; resequence recommended',, 
; mR 1090 § MAXLINVAL, y "Max number of Lines for this buffer exceeded oe 

: mRIOvI 0 NODEFN, W, "No definit ton" naiglnssins 

: Ross 8 BADRANGE. rf Ne es then 6 As, Lines can ye processed in a single command’,, 
: mR Tove 8 NOF ILWRT, W, ‘No output file written’,, 

: MRIO7S 0 NOSELRAN, W, ‘No select range active',, 

: MR1076 0 NOSUCHLIN, W, ‘No such Line’, ime 

: MRIO?? 0 NOWENTDEF, W, ‘Now enter the “definition terminated by oe 

; MR1078 0 WURVALILL, Wo (Numeric value illegal. 

: MR1080 0 NOOR] GNUM: f ‘ORIGINAL Line numbers no “Longer an EDT feature',, 

; AR TOBt 0 OUTFILCLO, W, ‘Output file could not be closed’ ° 

: R108 0 OUTFILCRE, W, ‘Output file could not be created’,, 

: MR1083 0 PARENMIS, W, ‘Parenthesis mismatch’, 

if 0 PARSTKOVE, W, ‘Parsing stack overflow ‘aa 

: mR OBS 0 PLSANSYNQ, W, ‘Please answer Yes), NCOs, Q(uit), or ACL oe 

: aR 1OBe 0 PASSTATUS, W. *Pass bad status to caller! ois 

: MR1087 0 PRERETCON, W, ‘Press return to continue ',, 

RIO 0 PRSKEYDEF, W. ‘Press the key you wish to define’ ee 

: 1989 0 PRIFILCLO, W, ‘Print file could not be closed '" 

: at 0 PRIFILCRE, W, AR SR net ent, created’,, 

; requ 

3; MR1091 O QUOSTRREQ, WwW, ‘Quote strin Ee Sapa: 

: MR109s 6 RANSPCSEQ. u ‘Range tor’ RE REGUBNCE aust be p iat duplicate or ¥ REN OOREENE TEN numbers',, 
R109 6 RECTOOBIG. W. ‘Record too big, truncated to,2 characters’, ER_RTB 

: R109 0 SUBSTRNUL, W, ‘Search string cannot be null" 

: aa 0 INVSRAN, W, ‘Select complete Lines only’ te 

AR 0 SELALRACT, W, ‘Select range is alread act ve $536° 

R109 SEQINCROV, F, ‘Sequence increment must be re than $33 ais 

: wR 1099 SEQNUMOV, F "Sequence number must be less than 65556 ‘ 

; mR 1100 NONALPNUM, W, ‘Str ng delimiter must be non-alphanumeric',, 

: Beton STRNOTFND, WwW, 5 Te ues not found‘ 73 

AR 0 KEYNOTDEF, W, ‘That key is nes definable‘ ge 

att § TOEXITHLP, Ww, ‘To exit from HELP, press the spacebar',, "ibe 
; ARI TORETKEY, W, ‘To return to the ke ypad diagram, press the voture y* oo 
: ART 5 . UNXCH - Ww, ‘Unexpected character after end of command’, 

: mio 8 C ‘Unrecogn zed comma 

: ee toe UNRCOMOPT. W, "Unrecognized sanead optio n’.. 

7s 108 WORFILCLO, W, ‘Work file fai ed to close® " 

: R109 WORFILFAI, F, ‘Work file failed to seen’ - ER_WFO, 

: RRII10 WRKFILOVF, F, ‘Work file overflow’,, 

: maT 11 WORKING, fF, © ‘Working’,, 
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“ed LCRE, 


ES ee 


1$-se0-1944 $3:20:88 = “SSSenBkses tee r’SaPacnaesc.reo;1 29° (30 


‘Write file could not be closed’,, 
‘Write file could not be created',, 
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; 0 ¢ 

; 5 0 ! Define the base and offset for the message codes. 

3 8 8 ! The offset is used to gist inguish EDT message codes from system-specific 

; 4 0 message codes. On VAX/VMS, the codes are defined by the MESSAGE compiler. 

; 1 | 

; ¢ 0 ZIF XBLISS (BLISS16) 

; Z 0 THEN 

; 5 é LITERAL 

; 6 0 W.BASE = 256, 

° 7 F BASE s 2: 

3 8 1_BASE = . 

3 9 E_INC = 2; 

: 0 

; 1 8 ¢ 

; § 8 Define the error codes. 

3 4 0 

; 5 0 CRO 

3 ° 8 ERR CNAME, SEVERITY, TEXT, ENAME) = 

3 1138 0 ZNAME ("ERR_*, NAME) = 

3 1139 0 NAME (SEVERITY,' BASE’) + (E_INC * ERROR_CODE) 

; i 40 9 ZASSIGN (ERROR_CODE, ERROR_CODE + 1) 

3 UR114 ‘ 

3 1 tg 6 COMPILETIME 

3 UR1144 8 ERROR_CODE = 1; 

3; UR1145 

; 1146 0 LITERAL 

3 UR1147 0 ERROR_MESSAGES; 

; URI1148 0 

3; URI149 0 UNDECLARE XQUOTE 

3; UR1150 ERR; 

3; UR1151 

3; (ORI 26 0 <FI 

3; R1153 0 

>; kR1154 O '+ 

; R1155 0 ! The modules EDTSMESSAGE and EDTSMSGTXT use macro ERROR_MESSAGES to 

; («RI 28 0 ! generate the text of each message. 

ee er | | 

3 '¢ =< 

3; (ORI 5 ! Define the ne SSAGES maces which fet ines EDTS_mnemonic properly for 3 

; R1160 ! either BL15S16 or BLISS32. On BLISS16 it_is defined as a literal, 

: 4 e) equal to the ERR_mnemonic mame. On BLISS32 it is defined as external. 0 

3 RI 8 Th 

: R1164 MACRO 

; = 65 MESSAGES (MNEMONIC_LIST) = MA 

3; MRI $9 <I1F BO 155 Co 15816) eran 

3 MRI $8 MACRO MSG CMNEMONIC) = 

3; MRI 8 INAME ('EDTS MNEMONIC) = ZNAME ("ERR_*, MNEMONIC) ZQUOTE 2; 

> MR1170 LITERAL MSG TZREMOVE (MNEMONIC_LIST)); 

3; R171 UNDECLARE ZQUOTE ZQUOTE MSG; 

3; MR1172 ZELS 


Smee BAAR CTESTS Ne ANERONTC) XQ 

> MRI175 EXTERNAL Uitetat MSG EREROVE ( fuel WONIC_LIST)); 
> MR11 6 UNDECLARE %QUOTE XQUOTE MSG; 

> MR117 MFI; 

3; R1178 %; 

: Rib 

> R1181 8 i End of file ERRMSG.REQ 
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\¢ 
Definition of the screen update data structure. 


i This structure has an entry for each Line which is represented on the screen. 
In NOTRUNCATE mode, each record may occupy one or more screen Lines. 


START_FIELDS(SCR_ FIELDS) 
A-FIELD(SCR_PRV_LINE,%BPADDR), ! Pointer to the previous Line 
A_FIELD(SCR_NXT_LINE,ZBPADDR), ! Pointer to the next Line 
A-FIELD(SCR-LINE 1Dx.8). ' The i'th screen Line of this record 
A_FIELD(SCR_CHR_FROM,8), ' Workfile char position from 
A-FIELD(SCR-CHR-T0,85 i Workfile char position to 
A-FIELD(SCR-EDIT_MINPOS.8), i Minimum position that has had an edit 
A_FIELD(SCR_EDIT_MAXPOS 8), ! Maximum position that has had an edit 

ve ATETELD(SCR_EDIT_FLAGS 6) i Modify, delete and insert flags 


STRUC_SIZE(SCR_SIZE); 


MACRO 
SCREEN_LINE = BLOCKCSCR_SIZE,BYTE] FIELD(SCR_FIELDS) %; 


14 
These flags go in SCR_EDIT_FLAGS and are also used when calling EDTSSMRK_LNCHG. 


LITERAL 
SCR_EDIT_MODIFY = 1, ! This Line has been modified 
SCR_EDIT_INSLN = 2, ' This Line has been inserted 
SCR_EDIT_DELLN = 4; ! This Line has been deleted 
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: 1334 '¢ ; 
; : 5 ; PARSER OP=CODE DEFINITIONS ; 
: } ? } The following are the op-codes accepted by the parser driver. ‘ 
; 1339 : 
; 1340 LITERAL ‘ 
; 1341 0 ABORT = 0, ! Abort the parse . 
Pg tg OPC_ACTION = 1, ' Perform ection routine ‘ 
oe OPC_ CALL = ¢ ' Call sub-ta ‘ 
> = 1344 OPC oBe TURN = ’ ! End of table or sub-table (return) : 
>; 36.1345 PC- 19 = 4, ' Unconditional goto | ° 
2 $ OPC-OPTION = Be ' Optional phrase check : 
7? ¥ OPC"REQUIRE - ¢. ! Require a specific token | ‘ 
3 : 8 OPCTSELECT - ° ! select one of several options . 
: 1350 OP_ABORT = Q ! now the bit values | : 
: 1351 0 OP"ACTION : 2 | : 
p4° % 2¢ 0 CALL = 64, | ‘ 
; 1353 0 OP"RE TURN = 96 | : 
: 1354 0 OP“6OTO = 126, | ; 
; 1355 0 —OPTION = 199. ‘ 
; 1356 0 OF REQUIRE = 192, ’ 
3 357 @ P-SELECT = 224; : 
; 1358 O 3 
; 1322 0 '¢ : 
; 1360 0 ! Token class definitions : 
; 136) ® !- : 
; 1306 0 : 
; 1eer 0 LITERAL : 
Sy 0 CL_NAME = 0, ! mame class F 
; \ae2 0 CL_NUMBER = 16 ! the number class 3 
ote 0 CL_SPECIAL 5 ¢: ' the special character class 3 
>; 1367 0 CL_STRING = 3 ! The qouted string class : 
; 1368 O ; 
; 1369 0 : 
; 1370 0 ‘+ 3 
; 130) 3 i ; Parser token handling and matching macros ; 
; 1398 0 : 
5 1374 0 MACRO : 
2 1375 QO PAR_MIN_LENGTH = 6. 0,3,0 % ’ 
: 1377 0 PAR Ort “FENeEAY REE 
; 138 0 SYMBOL = 1,0,0,0 &; ; 
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; 1380 : 
: 1381 ‘+ : 
3 } ¢ Miscellaneous definitions ; 
: 13a | ; 
Pes Bg RIF XBLISS(BLISS32) XTHEN | : 
; 4 1388 0 MACRO STRING DESC(DESC,LEN,ADDR) = : 
3 : 34 BEGIN EXTERNAL ROUTINE STRSCOPY_R; STRSCOPY_R(DESC,LEN,ADDR) END 2%; 

; ¥ : 4 RELSE 

; U1 38 0 ! These DSCS macros are defined as system symbols on VAX/VMS. They are 

; U 1394 0 ! fields in a string descriptor. To get the effect of a string descriptor 

; U 1395 0 ' on the 11's, we will pass a 4 word field with the Tet lowing macros defining 

3 ; 4] 8 the pointer to the string address and the field of the string length. 

; U 1398 0 | 

; U 1399 0 

; U 1400 O ACRO 

; U 1401 0 DSCSA_POINTER = 4,0,16,0%, 

iu 1408 0 DSCSW"LENGTH = 0,6,16,6%; 

; U 1406 0 MACRO STRING_DESC ( DESC, LEN, ADDR) = | 

; U 1405 0 BEGIN 

3; U 1406 0 

3; U 1407 O ESC: BLOCK(8,BYTE); | 

3 U 1408 0 DESCCDSCS$A_POINTER) = ADDR; 

3; U 14 0 DESCLDSCS$W_LENGTH] = .LEN; 

3; U 1410 0 END %; 

; U 1411 0 

3 a 0 xF I 

>; 1413 0 

: 61414 «0 LITERAL 

: 1415 0 UPDATE = 256, ! Indicating no update of current Line needed 

; 1416 0 EFRESH = 100, : indicating no refresh of screen needed 

3: «1417 8 MESSAGE _LINE= $$° ! Line on which messages are displayed 

: 61418 COMMAND LINE= 23, ' Line on which command prompts are displayed 

: 1419 0 DIR_FORQARD = ? ' Forward direction. 

3 \os9 0 DIR_BACKWARD= 0; ! Backward direction. 

oo 

; 1¢ 

; 2 «614 5 ! Definition of the ASSERT macro. This macro calls EDTSSINTER_ERR if the 

: 14246 ! condition is not true. 

gE 

3414 MACRO ASSERT (CONDITION) = 

3; 61428 O 

3M 1429 IF (NOT (CONDITION)) 

3614 THEN 

3 4 1431 BEGIN 

7414 § EXTERNAL ROUTINE EDTSSINTER_ERR : NOVALUE; 

7m 14 EDTSSINTER_ERR (); 

3m 14 END; 

3 Mm 1435 END 

; 61436 0 q; 


: End of file EDT.REQ 
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1437 ‘+ 
1238 } Symbols used in control C journaling. 
1440 LITERAL 
1441 CC_REC_SIZE = 6, ! Size of a control C reco 
166g JOO_REC_ESC = XX'FF', ' First (escape) byte of a "nonctext record in the journal file 
144 CC_REC_FLAG =_1 ' Second byte: recor 
Vite CCICTRIMAX = 30600; ! Maximum counter salue” in 4 C handling 
rs | 8 ‘+ 
122 Symbol used in the formatter 
1269 9 ZIF XBLISS(BLISS32) XTHEN 
1450 8 LITER 
1432 8 EDTSSK_FMT_BUFLEN = 512; ! Length of the format buffer 
u 1455 0 ZELSE 
U 1454 0 LITERAL 
: sees 4 EDTSSK_FMT_BUFLEN = 136; ! Length of the format buffer 
1457 0 FI 
1458 0 
1459 0 
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